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SUMMARY 


The design and implementation of a data communications protocol for the Intel 
Data Base Processor (OBP) is defined. The protocol is termed SPP (Service Port 
Protocol) since it enables data transfer between the host computer and the DBP 
service port. The protocol implementation is extensible in that it is explicitly 
layered and the protocol functionality is hierarchically organized. Extensive 
trace and performance capabilities have been supplied with the protocol software to 
permit optional efficient monitoring of the data transfer between the host and the 
Intel data base processor. Machine independence was considered to be an important 
attribute during the design and implementation of SPP. The protocol source is 
fully commented and is included in Appendix A of this report. 


INTRODUCTION 

SPP (Service Port Protocol) is defined to be the supporting first layer of the 
HILDA system. HILDA stands for "High Level Data Abstraction System" and is a 
three-layer system supporting the data abstraction features of the Intel Data Base 
Processor (DBP). The purpose of HILDA is the establishment of a flexible method 
for efficiently communicating with the Intel Data Base Processor. Each layer 
within HILDA plays a specific role during this communication. These roles may be 
seen in figures 1 and 2. The purpose of this report is to document the design and 
implementation of SPP in addition to the trace and performance diagnostic utilities 
available in the protocol package. 


AN OVERVIEW OF SPP 

SPP is an asynchronous data communications protocol that has been designed and 
implemented for use with the Intel Data Base Processor. The protocol permits 
complete usage of the DBP functionality. The physical environment in which the OBP 
operates is shown in figure 3 and consists of the host DEC VAX 11/780 with VMS 
level 3 operating system, the Intel Data Base Processor, and an RS-232 connection. 
At its most abstract interpretation, SPP is composed of the two procedures "Send 
Request" and "Receive Response." The SPP user may send a request (composed of a 
contiguous set of encoded commands) and receive a set of responses which may be in 
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the form of ASCII text or a more general binary form. "Send Request" and "Receive 
Response" activate a hierarchy of hand-shaking primitives which include error 
detection and correction capabilities using cyclic redundancy checking on both the 
host and DBP sides. 

SPP may be viewed as a three-layer protocol. The "layer" within the protocol 
should not, however, be confused with the layers within HILDA (see fig. 4). The 
SPP layers may, therefore, be construed to be sub-layers of the HILDA data communi- 
cations layer. The three layers of SPP are: 

1. Application/Session: 

The layer representing the highest level interface between the applica- 
tion software on the host computer and the DBP. 

2. Data Link: 

A middle protocol layer representing structured data transmission hand- 
shaking implemented with error detection and correction. 

3. Physical Link: 

The layer closest to the DBP, representing a primitive block I/O 
capabi 1 ity. 

It is important to note that all procedures within the layers of the protocol 
operate strictly on the host computer. The Intel DBP has its own embedded set of 
protocol layers in firmware. Each of the SPP protocol layers will be separately 
discussed. 


The Application/Session Layer 

This is the protocol layer closest to the actual DBMS (Data Base Management 
System) application software accessing the data base machine. The application/ 
session layer is composed primarily of two procedures, "SEND-REQIJEST" and 
"RECV-RESPONSE" which perform as demonstrated below: 
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Function 

Arguments 

Description 


SEND-REQUEST 

MODULE 

Byte array to be sent 



NBYTES-SENT 

Number of bytes in 'MODULE 

1 


PCBTYPE 

APPLICATION-ID 

Control or application PCB 
A host-assigned id # 

flag 


REQUEST-ID 

Id # of the session making 
request 

the 

RECV-RESPONSE 

MODULE 

NBYTES-RECV 

Byte array received from DBP 
Number of bytes received 


PCBTYPE 

Control or application PCB 

flag 


MORE-TO-COME 

Boolean flag representing when all 
DBP data has been received 


Note that "PCB" stands for "Parameter Control Block" which is described 
further in the section on data structures. The "APPLICATION-ID" argument (in 
SEND-REQUEST) is a host-assigned number identifying the application program which 
will be sending the request to the DBP. "REQUEST-ID" (or session id) refers to the 
DBP-assigned number identifying the application program. A program that is sending 
a request to the control session must use a REQUEST-ID of zero, whereas programs 
sending application session requests may use the REQUEST-ID numbers 1 to 4 which 
are assigned by the DBP when the host creates application sessions. The request 
module contains "NBYTES-SENT" bytes of DBP machine code. It should be noted that 
the response module returned may be null (that is, NBYTES-RECV is zero) since many 
DBP operations do not yield a response. An example of the use of the above proce- 
dures may be shown in the form of the DBP conceptual command "REMARK <H0ST> 

<HELL0>" which is performed after having started up the DBP with "DBPSTART:" 

C 

C FORTRAN EXAMPLE 
C 

BYTE M0DULE(512) 

PARAMETER APPLICATION = 1 
DATA MODULE 

X /'3A'X,'0rX,'01'X,'05'X, 

X '48'X,'45'X,'4C'X,'4C'X,'4F'X,'FF'X,'00'X/ 



CALL SEND-REQUEST (MODULE, 11, APPLICATION, 1 ,1) 

CALL RECV-RESPONSE (MODULE, NBYTES-RECV,APPLICATION,MORE-TO-COME) 

Figure 5 graphically depicts the general form of the Host-DBP interaction 
occurring during the SEND-REQUEST and RECV-RESPONSE procedures. Note that each DBP 
request module is prefixed by the "APPLICATION-ID" and "REQUEST-ID." This four- 
byte prefix is inserted by the SEND-REQUEST procedure. The prefix need not be 
placed within the request module itself. A list of the valid machine codes and 
formats for request and response modules may be found in the DBP Reference Manual 
( 1 ). 


The Data Link Layer 

The data link layer is composed of the two operations "READ-BLOCK" and 
"WRITE-BLOCK." Data "blocks" may be viewed as the error-free transfer medium used 
during I/O with DBP. A Cyclic Redundancy Check (using the CRC16 polynomial) has 
been implemented so that the data within the block is re-transmitted if an error is 
detected during transmission (2). The format of the two data link procedures is 
shown below: 


Function 

Arguments 

Description 

READ-BLOCK 

BLOCK 

Block of data to read from DBP 


NBYTES 

Number of bytes to read 


NBYTES-RECV 

Number of actual bytes read 
(including header, data, and 
trailing bytes) 


BASE 

Base address for I/O 


OFFSET 

Offset from BASE 

WRITE-BLOCK 

BLOCK 

Block of data to write to DBP 


NBYTES 

Number of bytes to write 


BASE 

Base address for I/O 


OFFSET 

Offset from BASE 
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The Physical Link Layer 


The physical link layer is the protocol layer closest to the DBP. It 
represents the actual serial I/O on the channel. At this level, there is no error 
correction. For correct operation it is imperative that the TTY port and channel 
be configured correctly, otherwise ambiguities are sure to occur. Figure 6 
displays the appropriate communications parameters which need to be set for the 
VAX. The physical link layer is represented by two procedures "Q-INPUT" and 
"Q-OUTPUT" (The VMS operating system assigns queues to each port (3)). The 
following table summarizes the format for the "Q-INPUT" and "Q-OUTPUT" operations: 

Function Arguments Description 

Q-INPUT BYTES Byte array received from DBP 

NBYTES-RECV Number of received bytes 


Q-OUTPUT BYTES 

NBYTES 


Byte array to be sent to the DBP 
Number of bytes to be sent 


THE SPP THREADED DATA STRUCTURE 

The DBP Service Port Protocol uses a simple memory mapped I/O scheme to handle 
the DBMS control and application functions. The core of this scheme is represented 
as the PCB (Parameter Control Block) Vector. This vector contains pointers to the 
control and application address blocks. Depending on the type of DBMS function to 
be performed (control or application), the DBP commands are sent using the appro- 
priate I/O addresses. All addresses are specified in a basezoffset (4 bytes) 
format. Access to the data areas, whether the data is request or response data, is 
obtained by 'threading' through the PCB Vector and specific PCB (see fig. 7). 


OPERATION OF SPP 

This section defines the actual operation of SPP in the implementation. The 
protocol should be used at the application/session layer level, that is, using the 
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two session procedures "SEND-REQUEST" and "RECV-RESPONSE." The procedure for 
successfully communicating with the DBP is shown below: 


Program 

Procedures Activated 

Description 

DBPSTART 

INIT-COMM 

CREATE-CONTROL 

CREATE-APPLICATION 

Initialize communications 
Create control session 
Create application session 

...communicate... 

INIT-COMM 

SEND-REQUEST 

RECV-RESPONSE 

Initialize communications 
Send request module 
Receive response module 

DBPSTOP 

INIT-COMM 

DELETE-APPLICATION 

DELETE-CONTROL 

Initialize communications 
Delete application session 
Delete control session 


SPP UTILITIES 

SPP contains two primary utilities which are useful in conjunction with the 
protocol operation. The two available utilities are tracing and performance 
monitoring. “Tracing" refers to a map containing detailed data transmission infor- 
mation including snapshots of the PCB Vector and Control /Appl i cation PCB's. The 
entire handshaking sequence within SPP may be studied with the aid of the trace 
utility. "Performance Monitoring" refers to the collection of certain execution 
statistics during host-DBP transmissions. By monitoring the DBP, the software 
analyst may study both the effect of SPP on VMS and the elapsed time during host- 
DBP requests and responses. 

Both utilities may be used within any of the three SPP layers. The depth of 
trace and performance information may, therefore, be set by the analyst if only a 
subset of the SPP operations require monitoring. 
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The Trace Utility 


A trace facility has been designed into SPP so that all Host-DBP 
communications may optionally be monitored. The trace output may be re-directed to 
any logical output unit including the terminal, if desired. Tracing may be 
accomplished by using the following two routines: 

1. TRACE-START (UNIT) where UNIT = logical output file unit 

2. TRACE-STOP 

Snapshots of the PCB Vector and PCB are displayed on the trace output to aid 
the analyst. Appendix B displays all communications that transpire during the 
"CREATE-CONTROL" and "CREATE-APPLICATION" procedures (activated when DBP-START is 
called). For further information on interpreting the trace see the DBP Operations 
Manual (4). 


The Performance Monitoring Utility 

The analyst may wish to invoke the performance monitoring facility when using 
the other routines. The statistics that are currently monitored are listed below: 

1. Elapsed Clock time 

2. Elapsed VAX CPU time 

3. Number of VMS buffered I/O requests 

4. Number of VMS direct I/O requests 

5. Number of VMS page faults 

The following two routines may be used to obtain the above statistics: 

1. PERFORM-START 

2. PERFORM-STOP (CLOCK, CPU, BIO.DIO, PAGE) - where each argument directly 
corresponds to each item listed above. 

SPP is currently fully operational using a 9600 baud physical link to the DBP 
service port. SPP is limited in that only one host may be used at any one time. 

It should be realized, however, that several host application sessions may be 
instantiated permitting multiple host simulation studies if desired. 



In the future, Intel is planning on supporting the Ethernet link between 
multiple hosts and the DBP, The extensive host link protocol (5) (corresponding to 
the recent ISO protocol standard) will be used with Ethernet. The Ethernet imple- 
mentation will permit fast DBP access which will be essential for multiple-user and 
embedded DBMS applications. 


CONCLUDING REMARKS 

SPP is to be used as the bottom layer of a stack of Data Base Processor (DBP) 
tools. The tools currently under development by the author to utilize the DBP 
functions are known collectively as the HILDA system. SPP has been implemented 
such that it may be separated from the HILDA system for use in another research 
effort. 

The construction of a machine-independent protocol was considered important 
since the data base machine may be connected to a wide variety of hosts. The 
essential machine dependencies in SPP are clearly marked to aid the implementor in 
a non-DEC computer environment. 

The functional, layered design of SPP supports the concept of extensibility so 
that an individual may easily make modifications and enhancements to the existing 
implementation. 
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APPENDIX A - SPP Source 


SPP has been implemented using VAX VMS FORTRAN 77. The 'SPP' program module 
specifies implementation notes which refer to certain computer dependencies of 
SPP. Subroutines which contain at least one source of VAX/VMS machine dependence 
are flagged with '*** MACHINE DEPENDENT ***' at the head of the routine. 
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C= 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PROGRAM SPP 
PURPOSE : 

'SPP' IS A SERVICE PORT PROTOCOL TO BE USED IN 
ACCESSING THE INTEL DBP 

ARGUMENTS t 

NONE 

DIAGNOSTIC TRACE OPTION FOR PROTOCOL : 

USE TRACE-START AND TRACE-STOP 
PERFORMANCE MONITORING OPTION t 
USE PERFORM-START AND PERFORM-STOP 

SPP FUNCTIONAL COMPONENTS t 
PROGRAMS 

DBP-START - USED TO START I/O WITH THE DBP. 


SPP 


- THIS PROGRAM IS JUST A SAMPLE PROGRAM 
WRITTEN TO SHOW THE CORRECT FORM 
FOR SPP OPERATION. 


DBP-STOP - USED TO END I/O WITH THE DBP. 
PROTOCOL SUBROUTINES i 


C 

C 

C 


INIT-COMM 

END-COMM 

CREATE-CONTROL 


- INITIALIZE COMMUNICATIONS WITH DBP 

- END COMMUNICATIONS WITH DBP 

- CREATE A DBP CONTROL SESSION 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


DELETE-CONTROL 

CREATE-APPLICATION- 

DELETE-APPLICATION- 

RECV-RESPONSE 

SEND-REQUEST 

READ-BLOCK 

WRITE-BLOCK 

Q-INPUT 

Q-OUTPUT 

L0W16 

L0W32 

HIGH16 


DELETE THE DBP CONTROL SESSION 
CREATE A DBP APPLICATION SESSION 
DELETE THE DBP APPLICATION SESSION 
RECEIVE A DBP RESPONSE 
SEND A REQUEST TO THE DBP 
READ A DATA BLOCK FROM THE DBP 
WRITE A DATA BLOCK TO THE DBP 
RECEIVE A BYTE BUFFER FROM THE DBP 
SEND A BYTE BUFFER TO THE DBP 
RETURN LOW ORDER BYTE FROM 16-BIT WORD 
RETURN LOW ORDER BYTE FROM 32-BIT WORD 
RETURN HIGH ORDER BYTE FROM 16-BIT WORD 


C HIGH32 

C 

C GLUE 

C 

C UTILITY SUBROUTINES 
C 

C TRACK 

C 

C 

C TRACE-START 

C TRACE-STOP 


- RETURN HIGH ORDER BYTE FROM LOWER-HALF 
OF 32-BIT WORD 

- RETURN A 16-BIT WORD FORMED FROM 2 BYTES 


- IF TRACE MODE HAS BEEN ENABLEDi DISPLAY THE 
TWO DATA STRUCTURE FORMATS! PCB S 

PCB VECTOR ) 

- ENABLE TRACE MODE 

- DISABLE TRACE MODE 
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PERFORH-START - ENABLE PERFORMANCE TRACING 

PERFORM-STOP - DISABLE PERFORMANCE TRACING 

C 
C 
C 

C MACHINE DEPENDENCIES : 

C 

C THIS SOURCE TEXT REPRESENTS A TESTED VAX/VMS 
C VERSION OF SPP. 

C 

C SPP HAS BEEN IMPLEMENTED SO THAT THE MACHINE 

C DEPENDENCIES INHERENT WITHIN THE SOURCE TEXT 

C ARE CLEARLY MARKED TO AID THE IMPLEMENTOR IN 
C A NON-DEC COMPUTER ENVIRONMENT. 

C 

C THE FOLLOWING IS A LIST OF THINGS TO WATCH OUT FOR 
C IF A NON-DEC MACHINE IS BEING USED : 

C 

C 1.) THE FOLLOWING ROUTINES CONTAIN VMS MACRO CALLS 
C WHICH ARE USED MAINLY FOR TTY I/O PURPOSES J 

C 
C 

C ROUTINE 

C 

C INIT.COMM 

C Q-INPUT 

C Q-OUTPUT 

C READ-BLOCK 

C WRITE-BLOCK 

C END-COMM 

C 

c where: 

C 

C LIBiCRC-TABLE 

C 

C LIB4CRC 

C SYSiASSIGN 

C SYS$DASSGN 

C SYS$QIOW 

C 
C 

C THE TYPES OF FUNCTIONS PRESENT WITHIN THESE 

C ROUTINES IS USUALLY FOUND WITHIN MOST OPERATING 

C SYSTEM SERVICE MANUALS. 

C 

C 2.) HEXADECIMAL VALUES FOR THE VAX ARE SPECIFIED AS 

C FOLLOWS : 

C 

C 'DE'X 'FF'X etc. 

C 

C THIS REPRESENTATION MAY DIFFER ON ANOTHER COMPUTER. 

C 

C 3.) DATA TYPE 'BYTE' - ON THE VAX» THE MOST NATURAL WAY 

C TO REPRESENT PURE BYTE STREAMS IS USING THE DATA TYPE 

C 'BYTE'. ON OTHER MACHINES* ONE MAY USE 'LOGICAL*!' OR 

C 'CHARACTER*!'. KEEP IN MIND, HOWEVER, THAT CHARACTER 

C DATA IS GENERALLY STORE DIFFERENTLY( VMS CALLS THIS 

C A DESCRIPTOR TYPE ). 

C 

C 

C 4.) IDENTIFIER LENGTHS - THE FORTRAN VARIABLE NAME LENGTHS ARE 

12 


DEPENDENCIES 

LIB$CRC-TABLE,SYS*ASSIGN 

SYSiOIOW 

SYSfOIOW 

LIBiCRC 

LIBiCRC 

SYSiDASSGN 


- Initialize a table for further CRC16 
calculations 

- Calculate CRC16 for a 3iven ASCII strinS 

- Assisin an I/O channel 

- De-assi3n an I/O channel 

- Block I/O routine for serial I/O 
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LONGER THAN MAY BE SUPPORTED WITH SOME FORTRAN COMPILERS. 
THEY ARE LONG TO AID IN THE READING AND COMPREHENSION OF 
THE SOURCE. 

5.) 'INCLUDE' STATEMENT - MOST FORTRANS SUPPORT A METHOD FOR 
INCLUDING/INSERTING A DISK FILE WITHIN THE SOURCE PRIOR 
TO COMPILATION. 

date: 

APRIL 12» 1983 

author: 

C PAUL A. FISHWICK 
C KENTRON TECHNICAL CENTER 

C 3221 NORTH ARMISTEAD RD. 

C HAMPTONf VA. 23666 
C ( 804 >-865-3195 
C 

INTEGER*4 BI0»DI0»PA6EF 
INCLUDE 'SPPCOM.TXT' 

C 

C note: this is an example use of 'SPP'. the user must 

C HAVE STARTED COMMUNICATIONS BY ACTIVATING THE PROGRAM 
C 'DBPSTART' PRIOR TO THIS. THE FOLLOWING SET OF BYTES 
C REPRESENTS THE CONCEPTUAL 'DEFINE DATABASE <TESTING>' 

C DBP COMMAND. THE DIAGNOSTIC AND PERFORMANCE TRACING 
C OPTIONS HAVE BEEN UTILIZED, 

C 

CALL TRACE_START( 9 ) 

CALL INIT.COMM 

MODULE(l) = '60'X 

M0DULE(2) = '07'X 

M0DULE(3) = '54'X 

M0DULE(4) = '45'X 

M0DULE(5) = '53'X 

M0DIJLE<6) = '54'X 

M0DULE(7) = '49'X 

MODULE (8) = '4E'X 

MODULE!?) = '47'X 

MODULE(10)= 'FF'X 

M0DULE(11)= 'OO'X 

CALL PERFORM-START 

CALL SEND-REQUEST ( MODULE » 1 1 » 1 » 1 f 1 ) 

CALL RECV_RESPONSE(MODULE,NBYTES .RECV,t»MORE_TO_COME) 

CALL PERFORM_STOP( CLOCK. CPU.BIOf DIO, PAGEF ) 

CALL TRACE-STOP 
CALL EXIT 
END 
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C 

C COMMON FOR SPP< SERVICE PORT PROTOCOL ) 

C 

BYTE BYTES ( 1024 ) » BLOCK (1024 ) » MODULE ( 1024 ) 

BYTE H0DULE2(1024) 

INTEGER#2 BASE»0FFSET»I0SB(4) »NBYTESfNBYTES_RECV 
INTEGER*2 TTY_CHANNEL 
INTEGER#4 STATUS»CRC-TABLE( 16) f CRC 
CHARACTER STRIMGC512 
COMMON/CRCCOM/ CRCi CRC.TABLE 
COMMON/COMM/ TTY. CHANNEL 
C 

L0GICAL»4 HORE-TO.COME 
SYSTEM SERVICE PARAMETERS 
READ PARAMETERS 

PARAMETER lOIM.NOECHO = '00000040'X 
PARAMETER I0$H..PUR6E - ' 00000800 'X 
PARAMETER I0«M_TIMED = '00000080'X 
PARAMETER IO$_TTYREADALL = 'OOOOOO.TA'X 
STATUS INDICATORS 

PARAMETER SSi.NORMAL = '00000001 'X 
WRITE PARAMETERS 

PARAMETER I04.URITEVBLK = '00000030'X 

DEBUG(TRACE) VARIABLES 

INTEGER*4 UNIT 
L0GICAL*4 DEBUG 
COMMON/TRACECOM/ DEBUGjUNIT 
DATA DEBUG/. FALSE./ 


14 



non o o o 


DBPSTART.F0RJ8 


5-JUL-1983 12M6 


P3^e 1 


PROGRAH DBP-START 
C 

C PURPOSE : 

C 

C START OPERATIONS FOR THE DBP 

C THIS INCLUDES ALLOCATING THE CHANNEL TO 

C BE USED FOR HOST <-> DBP COMMUNICATIONS 

C 

C 

C 

C ARGUMENTS : 

C 

C NONE 
C 

C PROTOCOL I 
C 

C SERVICE PORT 
C 

C LAYER : 

C 

C APPLICATION 
C 

C DATE J 
C 

C APRIL 12fi983 
C 

INCLUDE 'SPPCOM.TXT' 

SET UP COMMUNICATIONS 

PRINT *»'»* START DBP COMMUNICATIONS 
CALL TRACE_START( 9 ) 

CALL INIT.COMM 

CREATE CONTROL»APPLICATION SESSIONS 

PRINT CREATING CONTROL SESSION »*' 

CALL CREATE.CONTROL 

PRINT CREATING APPLICATION SESSION *»' 

CALL CREATE-APPLICATION 
C 

CALL TRACE-STOP 
CALL EXIT 
END 
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PROGRAM DBP_ST0P 
C 

C PURPOSE ; 

C 

C STOP OPERATIONS FOR THE DBP 

C 

C 

C ARGUMENTS : 

C 

C NONE 
C 

C PROTOCOL : 

C 

C SERVICE PORT 
C 

C LAYER J 
C 

C APPLICATION 
C 

C BATE : 

C 

C APRIL 12»1983 
C 

INCLUDE 'SPPCOM.TXT' 

SET UP COMMUNICATIONS 

PRINT tf't* START DBP COMMUNICATIONS t»' 

CALL TRACE_START( 9 ) 

CALL INIT_C0MN 

DELETE THE APPLICATION SESSION 
AND CONTROL SESSION 
( TERMINATE DBP ) 

PRINT *f’*t DELETING THE APPLICATION SESSION **' 
CALL DELETE.APPLICATION 
C 

PRINT »f'»» DELETING THE CONTROL SESSION W 
CALL DELETE.CONTROL 
C 

CALL TRACE-STOP 
CALL EXIT 
END 


16 



INITC0MM*F0RJ35 5-JUL-1983 12tlA 

SUBROUTINE INIT-COMH 
C 

C ttt MACHINE DEPENDENT ttt 
C 

C PURPOSE : 

C 

C INITIALIZE COMMUNICATIONS PARAMETERS PRIOR TO ACTUALLY 
C TRANSMITTING DATA BACK AND FORTH 
C 

C ARGUMENTS \ 

C 

C NONE 
C 

C PROTOCOL X 
C 

C SERVICE PORT 
C 

C LAYER I 
C 

C APPLICATION 
C 

C DATE : 

C 

C APRIL 12fl983 
C 

C 

INCLUDE 'SPPCOM.TXT' 

INTEGERS SYS$ASSIGN 
C 

IF( DEBUG ) WRITE( UNIT>5 ) 

5 FORMAT(' ** Initiali;:e iOBP Communications tt') 

C 

C INITIALIZE A CRC-16 TABLE FOR ERROR DETECTION 
C ( THE VAX 'CRC' MACHINE INSTRUCTION IS USED ) 

C 

CALL LIB$CRC«TABLE( '120001 'OfCRC. TABLF ) 

C 

C ASSIGN AN I/O CHANNEL USING A TTY PORT 
C 

STATUS = SYS$ASSIGN< 'REMOTE' fTTY^CHANNELf j ) 

IF( STATUS. NE^SSi^NORMAL ) THEN 
WRITE( UNIT»300 ) STATUS 

300 FORMAT(' Errorfunable to assii^n the DBP I/O Channel'/ 
X ' Status is 'fzBf/f' See t INIT-COMM' ) 

ENDIF 

C 

C SEND A CONTROL-C TO FLUSH THE TYPE-AHEAD BUFFER 
C AND INITIALIZE DBP COMMUNICATIONS 
C 

BYTES(l) = '03'X 

CALL Q-OUTPUT( BYTESfl ) 

NBYTES-RECV - 16 

CALL Q^INPUTC BYTESiNBYTES.RECV ) 

RETURN 

END 


Fade 1 
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SUBROUTINE END_COMM 
C 

C ttt HACHINE DEPENDENT t*t 
C 

C PURPOSE 5 
C 

C END COHHUNICATIONS TO THE DBP. DEASSIGN CHANNEL. 

C 

C ARGUMENTS 5 
C 

C NONE 
C 

C PROTOCOL 5 
C 

C SERVICE PORT 
C 

C LAYER 5 
C 

C APPLICATION 
C 

C DATE 5 
C 

C APRIL 12>1983 
C 

= = s = = = = r = = = = = = = s = = = = = 3 = = = s = = = = = = = = = = = = = = = : = = = 

c 

INCLUDE 'SPPCOM.TXT' 

INTEGER»4 SYS»DASSGN 
C 

C DEASSIGN THE PREVIOUSLY ASSIGNED CHANNEL 
C 

STATUS = SYS»PASSGN( TTY_CHANNEL ) 

IF< STATUS. NE.SS$.,NORMAL ) THEN 
HRITE< UNITrlOO ) STATUS 

100 FORMATC' Error.unsble to de-assign the DBP Channel'/. 
X ' Status is '.78./' Seel FND.COMM' ) 

ENDIF 

RETURN 

END 
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SUBROUTINE CREATE.CONTROL 
C 

C PURPOSE 5 
C 

C CREATE A CONTROL SESSION 

C NOTE 5 THIS IS THE FIRST FUNCTION TO BE PERFORHED 
C TO ACCESS THE DBP. THE 'MONITOR' BUTTON MUST 

C BE PUSHED PRIOR TO CALLING THIS ROUTINE. 

C 

C 

C ARGUMENTS 5 
C 

C NONE 
C 

C PROTOCOL 5 
C 

C SERVICE PORT 
C 

C LAYER 5 
C 

C APPLICATION 
C 

C DATE 5 
C 

C APRIL 12»1983 
C 

C=====================================================:r 

INCLUDE 'SPPCOM.TXT' 

INTE6ER»2 BASE-CTRLf OFFSET-CTRL 
C 

IF( DEBUG ) WRITE! UNITES ) 

FORMAT!' ** Create Control Session tt' ) 

READ THE PCB ADDRESS VECTOR 

BASE = 'EEOC'X 
OFFSET = 0 

CALL READ-BLOCK! BLOCKf 10, NBYTES_RECV»BASEf OFFSET ) 

IF! DEBUG ) CALL TRACK! BLOCK, 0 ) 

CALL GLUE! BL0CK!3) ,BL0CK!4) ,OFFSET_CTRL ) 

CALL GLUE! BLOCK!S) ,BLOCK!A>,BASE_CTRL ) 

READ THE CONTROL SESSION PCB 

CALL READ-BLOCK! BLOCK, 43, NBYTES-RECV,BASE-CTRl.,OFFSET_CTRL ) 

IF! DEBUG ) CALL TRACK! BLOCK,! ) 

IF! BL0CK!1S).EQ.4 ) THEN 
HOST TO SEND 'ENABLE SERVICE PORT' 

BLOCK! 16) = '11 'X 

CALL WRITE-BLOCK! BLOCK, 43, BASE-CTRL,OFFSET_CTRL ) 

IF! DEBUG ) CALL TRACK! BLOCK, 1 ) 

ELSE 

WRITE! UNIT, 100 ) BL0CK!15) 

10 FORMAT!' Error, DBP"s Wait on Enable is not set.'/, 

X ' DBP Status is ',z2'h' ) 

ENDIF 

RETURN CONTROL TO THE DBMS 19 


BYTES! 1) 


47'X 



CREATED. F0RI19 


5-JUL-1983 12517 


P3Se 2 


BYTES(2) = 'OD'X 

CALL Q_OUTPUT( BYTESt2 ) 

NBYTES_RECV = 29 

CALL O-INPUTl BYTES»NBYTES_RECV ) 

RETURN 

END 


20 
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SUBROUTINE CREATE.APPLICATION 
PURPOSE J 

CREATE AN APPLICATION SESSION 

ARGUMENTS : 

NONE 


PROTOCOL ; 

SERVICE PORT 
LAYER { 

APPLICATION 
DATE J 

APRIL 12»1983 


INCLUDE 'SPPCOM.TXT' 

IF( DEBUG ) WRITE! UNIT»5 ) 

FORMAT!' tt Create Application Session tt") 

PERFORM 'CREATE APPLICATION SESSION' 

M0DULE!1)='E4'X 
M0DULE!2)='01'X 
M0DULE!3)='FE'X 
M0DULE!4)='FF'X 
M0DULE!5)='00'X 

CALL SEND_REQUEST! M0DULE»5»0>1,0 ) 

RECEIVE THE APPLICATION ♦ 

CALL RECV-RESPONSE! M0DULEjNBYTES_RECV»0»M0RE_TO_C0MF ) 
IF! DEBUG ) THEN 

WRITE! UNIT»200 ) !M0DUl.E! I) » 1 = 1 »NBYTES...RECV) 

200 FORMAT! ' ** Create Application Response **'//> 

X 16!lXtZ2.2) ) 

ENDIF 

C 

C RETURN CONTROL TO THE DBMS 
C 

BYTES!1) = '47'X 
BYTES!2) = 'OD'X 
CALL Q-OUTPUT! BYTES»2 ) 

NBYTES.RECV = 29 

CALL Q-INPUT! BYTESiNBYTES.RECV ) 

C 

RETURN 

END 
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SUBROUTINE DELETE-CONTROL 
C 

C PURPOSE : 

C 

C DELETE A CONTROL SESSION 

C NOTE : THIS IS THE LAST FUNCTION TO BE PERFORMED 
C WHEN THE DBP IS TO BE STOPPED 

C 
C 

C ARGUMENTS : 

C 

C NONE 
C 

C PROTOCOL J 
C 

C SERVICE PORT 
C 

C LAYER : 

C 

C APPLICATION 
C 

C DATE : 

C 

C APRIL 12»1983 
C 

INCLUDE 'SPPCOM.TXT' 

C 

IF( DEBUG ) WRITE! UNIT»5 ) 

5 FORMAT!' tt Delete Control Session »»') 

C 

C PERFORM 'TERMINATE DBP' 

C 

NODULE!l)='ED'X 

M0DULE!2)='FF'X 

M0DULE!3)='00'X 

C 

CALL SEND-REQUEST! N0DULEf3r0>lr0 ) 

C 

C RECEIVE THE 'TERMINATE DBP' RESPONSE 
C 

CALL RECV-RESPONSE! MODULE»NBYTES_RECV»0»MORF_TO_COMF ) 
C 

RETURN 

END 


22 
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SUBROUTINE DELETE.APPUCATION 

C==r==r======= ===; ===s==; = s=s= = r:=:==srr: 

c 

C PURPOSE : 

c 

C DELETE AN APPLICATION SESSION 
C 

C ARGUMENTS : 

C 

C NONE 
C 

C PROTOCOL : 

C 

C SERVICE PORT 
C 

C LAYER : 

C 

C APPLICATION 
C 

C DATE : 

APRIL 12»19B3 


INCLUDE 'SPPCOM.TXT' 

INTEGERS BASE_APP.OFFSET_APP 

IF( DEBUG ) MRITE( UNITfS ) 

FORMAT!' *t Delete Application Session tt' ) 

READ THE PCB ADDRESS VECTOR 
C 

BASE = 'EEOC'X 
OFFSET = 0 

CALL READ-BLOCK! BL0CK» 10»NBYTES_RFCV.BASE»0FFSET ) 

IF! DEBUG ) CALL TRACK! BL0CK»0 ) 

CALL GLUE! BLOCK!?) >BL0CK!8) »OFFSET..APP ) 

CALL GLUE! BLOCK!9) f BLOCK! 10) fBASE..APP ) 

C 

C CHECK THE INDEX FIELD FOR POSSIBLE ERRORS 
C 

IF! !BLOCK!1).GE.'AO'X).AND. 

X !BL0CK!1).LE.'DF'X) ) THEN 
WRITE! UNITtIOO ) BL0CK!1) 

100 FORMAT!' Error? CouIdn''t Delete Application Session'/? 

X ' Index Field!low) is 'f7:2?'h' ) 

RETURN 

ENDIF 

C 

C READ THE APPLICATION SESSION PCB 
C 

CALL READ-BLOCK! BL0CK»43»NBYTES-RECV»BASE_APP?0FFSET_APP) 
IF! DEBUG ) CALL TRACK! BLOCK? 1 ) 

IF! BL0CK!15).EQ.7 ) THEN 
C HOST TO SEND 'OK FIN' 

BL0CK(16) - ^05^X 

CALL WRITE-BLOCK! BL0CK?43?BASE-APP?0FFSET.APP ) 

IF! DEBUG ) CALL TRACK! BLOCK? 1 ) 

ELSE 

WRITE! UNIT?200 ) BL0CK!15) 

200 FORMAT!' Error? Application Session cannot be deleted.'/? 
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X ' DBP Status is '»z2'h' ) 

ENDIF 


RETURN CONTROL TO THE DBMS 

BYTES(l) = '47'X 
BYTES(2) = 'OD'X 
CALL 0_0UTPUT( BYTES»2 ) 
NBYTES-RECV = 29 

CALL Q_INPUT( BYTESf NBYTES..RECV ) 

RETURN 

END 


24 
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SUBROUTINE RECV.„RESPONSE( MODULE»TOTAL_BYTESf PCBTYPE» 

X HORE-TO-COME ) 

C 

C PURPOSE ; 

C 

C RECEIVE RESPONSE MODULE FROM THE DBP 
C 

C ARGUMENTS : 

C 

C MODULE 
C MBYTES 
C PCBTYPE 
C 
C 
C 
C 

C MORE_TO_COME - TRUE? IF THERE IS MORE DATA TO BE RECEIVED 
C AFTER THIS ROUTINE HAS BEEN CALLED 

C 

C - FALSEf IF ALL DATA HAS BEEN RECEIVED FROM 

C THE DBP 

C 
C 

C PROTOCOL : 

C 

C SERVICE PORT 
C 

C LAYER : 

C 

C APPLICATION 
C 

C DATE : 

C 

C APRIL 12»1983 
C 

C====================================================== 

C 

INCLUDE 'SPPCOM.TXT' 

INTEGERC2 NSEGMENTS»BUFFERl_LENGTHiBUFFER2_LENGTH»PCBTYPE 
INTEGER»2 BUFFERl_BASEf BUFFER2_BASE»BUFFER1_0FFSET 
INTEGER«2 BUFFER2_0FFSET»T0TAL_BYTES 
C 
C 

C GET PCB ADDRESS VECTOR 
C 

IF( DEBUG ) MRITE( UNIT»5 ) 

5 FORMAT!' t* Receive Response *»') 

50 TOTAL.BYTES = 0 

60 BASE = 'EEOC'X 

OFFSET = 0 

CALL READ-BLOCK! BLOCK* 10»NBYTES_RECVfBASE»0FFSET ) 

IF! DEBUG ) CALL TRACK! BLOCKfO ) 

C 

C LOOK AT THE INDEX FIELD 
C 

IF! !BL0CK!1)*GE.'A0'X).AND. 

X !BL0CK!1).LE.'DF'X) ) THEN 
URITE! UNITflOO ) BL0CK!1) 

100 FORMAT!' Error in RECV-RESPONSE* Index! low) is '»z2»'h') 
RETURN 


- RECEIVED RESPONSE MODULE 

- * OF BYTES IN RESPONSE MODULE RECEIVED 

- TYPE OF PCB TO RECEIVE RESPONSE MODULE 

= 0 — > CONTROL PCB 
= 1 — > APPLICATION PCB 


25 
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ELSE IF ( (BL0CK(1),EQ,'FF'X).AND. 

X (BL0CK(2)*E0,'FF'X) ) THEN 

IF( DEBUG ) WRITE( UNITfl25 ) 

125 FORMAK' Error? iDBP is suspended* Index is FFFFh') 

GO TO 9999 
ENDIF 

RECEIVE RESPONSE USING CONTROL OR APPLICATION PCB ? 

IF( PCBTYPE.EQ.O ) THEN 

CALL GLUE( BL0CK<3) ?BL0CK(4) ^OFFSET ) 

CALL GLUE< FLOCK(S) >BL0CK(6) >BA5E ) 

ELSE 

CALL GLUE( BL0CK<7) ? BL0CK<8) ^OFFSET ) 

CALL GLUEt BL0CK(9) i BL0CK( 10) »BASE ) 

ENDIF 

CALL READ_BL0CK( BL0CK»43*NBYTES_RECV?BASE»0FFSET ) 

IF( DEBUG ) CALL TRACK< BLOCK? 1 ) 

TEST THE DBP STATUS FIELD? FIRST 

IF( BL0CK(15).EQ.7 ) THEN 

UPDATE THE PCB 

BL0CK( 16 ) = 1 

CALL WRITE_BL0CK< BL0CK?43?BASE?0FFSET ) 

IF( DEBUG > CALL TRACK( BLOCK? 1 ) 

RETURN CONTROL TO DBMS 

BYTES(l) = M7'X 
BYTES(2) = 'OD'X 
CALL Q_0UTPUT< BYTES?2 ) 

NBYTES.RECV = 29 

CALL Q_INPUT( BYTES? NBYTES.RECV ) 

TOTAL.BYTES = 0 
M0RE..T0_C0ME = .FALSE. 

GO TO 9999 
ENDIF 
C 

C READY TO RECEIVE SEGMENTS) 

C 

NSEGMENTS = BL0CK( 31 ) 

C RECEIVE THE FIRST BUFFER( SEGMENT ) 

CALL GLUE( BL0CK<32) ?BL0CK(33) ?BUFFER1_0FFSET ) 

CALL GLUE( BL0CK(34) ?BL0CK(35) ?BUFFER1_BASE ) 

CALL GLUE< BL0CK(36) ?BL0CK(37) ?BUFFER1. LENGTH ) 

TOTAL-BYTES = TOTAL-BYTES + BUFFER1..LENGTH 

CALL READ-BL0CK( M0DULE( 1 ) ?BUFFER1-LENGTH?NBYTES.RFCV? 

X BUFFER1-BASE?BUFFER1.0FFSET ) 

C RECEIVE THE SECOND BUFFER( SEGMENT )? IF ANY 
IF( NSEGMENTS. NE. 2 ) GO TO 200 
CALL GLUE( BL0CK(38) ?BL0CK(39) ?BUFFER2.„0FFSET ) 

CALL GLUE< BL0CK(40) ?BL0CK<41) ?BIJFFER2-BASE ) 

CALL GLUEL BL0CK<42) ?BL0CK<43) ?BUFFER2_LENGTH ) 
IF(BUFFER2-LENGTH.GT.O) CALL READ_BLOCK( M00ULE( TOTAL-BYTES+l ) ? 
X BUFFER2-LENGTH?NBYTES-RECV?BUFFER2-BASE?BIIFFER2_0FFSET) 
TOTAL-BYTES = TOTAL-BYTES + BUFFER2 J.ENr?TH 
C 

C UPDATE THE PCB 
26 
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C 

200 BLOCK < 16 ) :: 1 

CALL URITE_BLOCK< BL0CKf43fBASEf OFFSET ) 

IF( DEBUG ) CALL TRACK ( BLOCK »1 ) 

C 

C RETURN CONTROL TO DBHS SOFTWARE 
C 

BYTE8( 1 ) = '47'X 
BYTES( 2 ) = 'OD'X 
CALL Q_OUTPUT( BYTES* 2 ) 

NBYTES-RECV = 29 

CALL Q.INPUT( BYTES* NBYTES-RECV ) 

C 

C ARE ALL NODULES READ FROH THE DBP ? 

C IF NOT* FLAG THE CALLER 
C 

IF( BL0CK(15).EQ.6 ) THEN 
MORE_TO_CONE = .FALSE. 

IF( DEBUG ) HRITE( UNIT*300 ) 

300 FORHAT<' tt All data has been received tt' ) 
ELSE 

MORE_TO_COHE = .TRUE. 

IF( DEBUG ) WRITE( UNIT*400 ) 

400 FORMAT(' tt There is more data to com tt') 
ENDIF 
C 

C DONE READING ALL RESPONSES 
C 

C ADJUST THE NODULE ARRAY < RETURNED RESPONSE ) 

C TO GET RID OF THE HEADER BYTES 
C 

DO 500 I = 1*T0TAL_BYTES 
500 NODULEi I ) = NODULE( H4 ) 

TOTAL-BYTES = TOTAL-BYTES - 4 
C 

9999 RETURN 
END 


27 
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SUBROUTINE SEND_REQUEST( HODULE»NBYTES_SENT»PCBTYPE» 

X APPLICATION_ID»REQUEST_II!i ) 

C 

C PURPOSE : 

C 

C SEND REQUEST NODULE TO THE DBP 
C 

C ARGUNENTS : 

C 

C NODULE - REQUEST NODULE 

C NBYTES - # OF BYTES IN REQUEST NODULE TO SEND 

C PCBTYPE - TYPE OF PCB TO RECEIVE RESPONSE NODULE 

C 

C s 0 — > CONTROL PCB 

C = 1 — > APPLICATION PCB 

C 
C 

C APPLICATION-ID - ARBITRARILY ASSIGNED HOST APPLICATION ID 
C 

C REQUEST-ID - THIS IS THE ID ♦ OF THE SESSION NAKIN6 
C THE REQUEST. WHEN AN APPLICATION IS FIRST 

C CREATED! THE CONTROL SESSI0N( = 0 ) ID IS 

THE 'REQUEST-ID'. AFTER THAT» THE APPLICATION 
ID ISSUING THE REQUEST IS THE 'REQUEST-ID'. 


PROTOCOL : 
SERVICE PORT 
LAYER J 

APPLICATION 
DATE ; 

APRIL 12»1983 


INCLUDE 'SPPCON.TXT' 

BYTE BUFFERK 512 )fBUFFER2( 512 )fTENP_BYTE 
INTEGERB2 PCBTYPE f NSEGNENTSf BUFFER1_LENGTH» BUFFER2-LENGTH 
INTE6ER»2 BUFFER1-BASE»BUFFER1_0FFSET 
INTEGERB2 BUFFER2_BASE»BUFFER2_0FFSET 
INTEGERB2 TOTAL-SENT » NBYTES. SENT 
INTEGERS APPLICATION-ID»REQUEST-ID 
C 

C STICK IN HOST APPLICATION ID X SESSION ID 
C 

50 NBYTES = NBYTES-SENT 

LEFTOVER-BYTES = .FALSE. 

DO 2 I = NBYTESfl»-l 
2 N0DULE(IF4) = NODULE(I) 

CALL L0H32( APPLICATION_IDf TENP.BYTE ) 

NODULE(l) = TENP-BYTE 

N0DULE(2) = 'OO'X 

CALL L0W32( REQUEST-IDt TENP..BYTE ) 

N0DULE(3) = TENP-BYTE 
N0DULE(4) = 'OO'X 
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MBYTES = MBYTES + 4 
C 

C GET PCB ADDRESS VECTOR 
C 

70 IF( DEBUG ) WRITE! UNIT»80 ) 

80 FORMAT!' ** Send Reouest **') 

BASE = 'EEOC'X 
OFFSET = 0 

CALL READ.BLOCK! BLOCKi 10»NBYTES_RECV»BASE»0FFSET»M0RE_T0_C0ME ) 
IF! DEBUG ) CALL TRACK! BL0CK»0 ) 

C 

C LOOK AT THE INDEX FIELD 
C 

IF! !BL0CK!1).GE,'A0'X).AMD. 

X !BL0CK!1).LE.'DF'X) ) THEM 
WRITE! UMITflOO ) BL0CK!1) 

100 FORMAT!' Error in SEND-REQUESTf Index!low) is 'fz2»'h') 

RETURN 

ELSE IF ! !BLOCK!l).EQ,'FF'X).ANDt 
X !BL0CK!2).EQ.'FF'X) ) THEN 

BYTES!1) = '03'X 
CALL Q.OUTPUT! BYTES»1 ) 

NBYTES.RECV = 16 

CALL Q.INPUT! BYTES»NBYTES_RECV ) 

GO TO SO 
ENDIF 
C 

C SEND REQUEST USING CONTROL OR APPLICATION PCB ? 

C 

IF! PCBTYPE.EQ.O ) THEN 

CALL GLUE! BL0CK!3) f BL0CK!4) »OFFSET ) 

CALL GLUE! BL0CK!5) »BL0CK!6) i BASE ) 

ELSE 

CALL GLUE! BL0CK!7) »BL0CK!8) f OFFSET ) 

CALL GLUE! BL0CK!9) »BLOCK( 10) fBASE ) 

ENDIF 

CALL READ_BLOCK! BLOCK»43»NBYTES_RECV,BASE>OFFSET ) 

IF! DEBUG ) CALL TRACK! BLOCKfl ) 

C 

C TEST THE DBP STATUS FIELD» FIRST 
C 

IF! !BL0CK!15).EQ.5).0R.!BL0CK!15).EQ,6)) THEN 
140 IF! DEBUG ) WRITE! UNIT»150 ) BL0CK!15) 

150 FORMAT!' ** WsrninS U'/f 

X ' tt Had to receive a response durinS '> 

X 'this SEND_REQUEST'/f 

X ' iDBP Status is ',z2»'h' ) 

CALL RECV-RESPONSE! M0DULE2>NBYTES_RECV>PCBTYPE»M0RE.T0_C0ME ) 
IF! MORE_TO_COME ) GO TO 140 
ENDIF 
C 

C CAN SEND THE MODULE 
C 

NSEGMENTS = BLOCK! 31 ) 

C 

C GO AHEAD AND TAKE CARE OF THE FIRST BUFFER 
C 

CALL GLUE! BL0CK!32) »BL0CK!33) »BUFFER1.0FFSET ) 

CALL GLUE! BLOCK! 34) »BL0CK!35)> BUFFERl.BASE ) 

CALL GLUE! BL0CK!36) »BL0CK!37) »BUFFER1_LENGTH ) 

IF! NBYTES.lt. BUFFER l-LENGTH ) THEN 


29 
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LENGTH = NBYTES 
ELSE 

LENGTH = BUFFERl.LENGTH 
ENDIF 

LEFTOVER = NBYTES - LENGTH 
DO 200 I = IfLENGTH 
200 BUFFERK I ) = MODULE ( I ) 

C WRITE THE FIRST BUFFER 

CALL MRITE_BLOCK< DUFFERl f LENGTH»BUFFER1-BASE» 

X BUFFERl. OFFSET ) 

TOTAL-SENT = LENGTH 
C 

C IF TWO SEGMENTS ARE REQUESTED* SEND THE OTHER BUFFER 
C 

IF( NSEGMENTS.EQ.2 ) THEN 

CALL GLUE( BL0CK(38) *BL0CK(39) *BUFFER2_0FFSET ) 
CALL GLUE( BL0CK(40) *BL0CK(41 ) *BUFFER2-BASE ) 
CALL GLUE( BL0CK(42) * BL0CK(43) * BUFFER2-LENGTH ) 
DO 300 I = 1* LEFTOVER 
300 BUFFER2(I) = MODULE ( I + LENGTH ) 

C WRITE THE SECOND BUFFER 

CALL WRITE_BLOCK( BUFFER2*LEFT0VER*BUFFER2.BASE* 
X BUFFER2-0FFSET ) 

TOTAL-SENT = TOTAL-SENT + LEFTOVER 
LEFTOVER = 0 
ENDIF 
C 

C UPDATE THE PCD S 

C SET 'REQUEST LENGTH' FIELD 

C 

IF( LEFTOVER, GT.O ) THEN 
C 

C SEND REQUEST 

C BUFFER THIS REQUEST UNTIL THE REST OF THE 
C REQUEST DATA CAN BE SENT 
C 

BLOCK! 16 ) = 1 

ELSE 

C 

C SEND REQUEST WITH EOM 

C I.E. THE COMPLETED REQUEST IS SENT 

C 

BLOCK! 16 ) = 3 
ENDIF 

CALL L0W16! T0TAL_SENT*BL0CK(29) ) 

CALL HIGH16! TOTAL. SENTfBL0CK(30) ) 

CALL WRITE-BLOCK! BL0CK*43*BASE*0FFSET > 

IF! DEBUG ) CALL TRACK! BL0CK»1 ) 

C 

C RETURN CONTROL TO DBMS SOFTWARE 
C 

BYTES! 1 ) = '47'X 
BYTES! 2 ) = 'OD'X 
CALL Q-OUTPUT! BYTES*2 ) 

NBYTES-RECV = 29 

CALL Q-INPUT! BYTES*NBYTES_RECV ) 

C 

C CHECK IF THE HOST NEEDS TO SEND ANY 
C LEFTOVER BYTES 
C 

IF! LEFTOVER, GT.O ) THEN 
30 
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IF( DEBUG ) WRITE( UMIT»600 ) NBYTES-LENGTH 
600 FORMAK/' tt Process leftover bytes *#'/) 

DO 750 I = LENGTH+lrNBYTES 
750 HODULE(I-LENGTH) = «ODULE< I ) 

MBYTES = MBYTES - LENGTH 
GO TO 70 
ENDIF 
C 

RETURN 

END 
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SUBROUTINE READ^BLOCK( BLOCKfNBYTESrNBYTES..RECVfBASEf OFFSET ) 

C===r ==« = = r = =: = = =:rr:=.r====:=r=r==r=:rr:==:=:r= = =r==rr=:r=rrr=:r=r=^=== 

c 

C ttt MACHINE DEPENDENT *tt 
C 

C PURPOSE : 

C 

C READS DATA FROM THE DBP 
C 

C ARGUMENTS t 
C 

C BLOCK - DATA READ FROM DBP 

C MBYTES “ ♦ OF BYTES READ FROM THE DBP 

C BASE - BASE PART OF I/O ADDRESS 

C OFFSET - OFFSET PART OF I/O ADDRESS 

C 

C PROTOCOL : 

C 

C SERVICE PORT 
C 

C LAYER : 

C 

C DATA LINK 
C 

C DATE : 

C 

C APRIL 12»1983 
C 

C3:==r=:==:r=r = = = = =:====:r:r:=:=:n = =:r=:=:r=:=r ==r: = = = =:=r=:===: = = = = r = =: = = 

C 

INCLUDE 'SPPCOM.TXT' 

INTE6ER*2 COUNT 
BYTE LOWBYTEiHIGHBYTE 
BYTE INIT( 3 ) 

DATA INIT/ ^55'Xr'52'XT'0D'X / 

C 

C INITIATE READ 
C 

50 IF( PEIUG ) URITE( UNITrSS ) 

55 FORMAT(' U Initiate a READ..BLOCK U' ) 

DO 75 I = If 3 

75 BYTES( I ) = INIT( I ) 

C 

C SEND COUNTfOFFSETfAND BASE 
C 

CALL L0W16( NBYTESfBYTES(4) ) 

CALL HIGH16( NBYTESf BYTES<5) ) 

CALL L0W16< OFFSETfBYTES(^) ) 

CALL HIGH16( OFFSET, BYTES(7) ) 

CALL L0W16( BASE,BYTES(8) ) 

CALL HIGH16( BASE, BYTES(9) ) 

WRITE( STRINGfllO ) ( BYTES ( I ) , 1=4 , 9 ) 
no FORMAT( 6A1 ) 

CRC = LIBiCRC( CRC-TABLEf0fSTRING(lJ6) ) 

CALL L0U32( CRC, BYTES(IO) ) 

CALL HIGH32( CRC,BYTES<11) ) 

C 

C SEND THE BYTES 
C 

CALL Q-0UTPUT( BYTESfU ) 

32 


C 
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C RECEIVE RESPONSE 
C 

NBYTES.RECV = NBYTES + 15 

CALL Q.INPUK BYTES»NBYTES_RECV ) 

IF( (BYTES<1),NE,'55'X),0R. 

X (BYTES(2).NE.'52'X).0R. 

X (BYTES(3).NE.'0D'X).0R. 

X (BYTES(4).NE,'0A'X) ) THEN 

IF<DEBUG) WRITE( UNIT»125 ) (BYTES( I ) » 1=1 »4) 

125 FORHAK' ErroPf Expected to find 55h»52h>0Dh»0Ah. '/» 
X ' Instead found ' 'h' »3( ' f ' i z2> 'h' ) ) 

GO TO 50 
ENDIF 
C 

C CHECK THE REMAINDER OF THE DATA BYTES 
C 

WRITE< STRING»150 ) (BYTES<I)»I=5»10) 

150 FORMAK 4A1 ) 

CRC = LIB$CRC( CRC_TABLE>0»STRING(i:6) ) 

C 

C CHECK CRC-1 
C 

CALL L0W32< CRCfLOHBYTF. ) 

CALL HIGH32( CRC»HIGHBYTE ) 

IF< (BYTES<11)*NE»L0«BYTE),0R. 

X (BYTES(12).NE.HIGHBYTE) ) THEN 
C CRC'S DO NOT HATCH 

IF( DEBUG ) WRITE( UNIT»200 ) HI6HBYTE»L0WBYTEf 
X BYTES(12)fBYTES(U) 

200 FORHAK' Error» CRC16 :'»/f 

X ' Host CRC( HiahfLow ) : ' »z2f Ixf z2»/f 

X ' DBP CRC( HiAh»l.oM ) J '»z2»lx»z2/ ) 

GO TO 50 
ENDIF 
C 

C PROCESS REST OF DATA 
C 

CALL GLUE( BYTF.S(5) » BYTES(6) »NBYTES..RECV ) 

DO 400 I = l»NBYTES_RECV+3 

400 BLOCK(I) = BYTES<I+12) 

HRITE( STRING»410 ) (BLOCK(I)i I=1»NBYTES_RECV) 

410 FORMAT ( <NBYTES_RECV>A1 ) 

CRC = LIB$CRC< CRC_TABLEfO»STRING(i:NBYTES_RECV) ) 

C 

C CHECK CRC-2 
C 

CALL L0W32( CRCiLOHBYTE ) 

CALL HIGH32( CRC*HIGHBYTE ) 

IF( (BL0CK(NBYTES_RECV+1).NE.L0HBYTE ).0R, 

X (BL0CK(NBYTES_RECV+2).NE.HIGHBYTE) ) THEN 

IF( DEBUG ) URITE( UNIT»500 ) HIGHBYTEtLOWBYTE. 

X BLOCK(NBYTES..RECVF2)fBLOCK(NBYTES_RECV+l) 

500 FORMAK' Error* CRC16 t'*/* 

X ' Host CRC( Hiilh»LoM ) : ' *z2i lx»z2*/» 

X ' DBP CRC( HidhfLow ) { '*z2flx»z2/ ) 

GO TO SO 
ENDIF 
C 

C SUCCESSFUL READ.BLOCK OPERATION 
C 


RETURN 
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END 
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SUBROUTINE «RITE_BLOCK( BLOCK»HBYTES» BASE* OFFSET ) 

C 

C tt* MACHINE DEPENDENT *tt 
C 

C PURPOSE : 

C 

C WRITES DATA FROM THE HOST TO THE DBP 
C 

C ARGUMENTS X 
C 

C BLOCK - DATA TO BE WRITTEN TO THE DBP 

C MBYTES - # OF BYTES IN 'BLOCK' TO BE SENT 

C BASE - BASE PART OF I/O ADDRESS 

C OFFSET - OFFSET PART OF I/O ADDRESS 

C 

C PROTOCOL : 

C 

C SERVICE PORT 
C 

C LAYER : 

C 

C DATA LINK 
C 

C DATE : 

C 

C APRIL 12»1983 
C 

INCLUDE 'SPPCOM.TXT' 

INTEGER*2 COUNT 
BYTE INIT( 3 ) 

DATA INIT/ '55'X>'57'X»'0D'X / 

C 

C INITIATE WRITE 
C 

50 IF( DEBUG ) WRITE( UNIT»60 ) 

60 FORMAT(' *t Initiate a WRITE_BLOCK tt' ) 

DO 75 I = lf3 

75 BYTES( I ) = INIT( I ) 

C 

C SEND COUNT* OFFSET* AND BASE 
C 

CALL L0W16( N6YTES*BYTES(4) ) 

CALL HIGH1A( NBYTES*BYTES(5) ) 

CALL L0W1&< OFFSET *BYTES( A) ) 

CALL HIGH16( 0FFSET*BYTES(7) ) 

CALL L0W16< BASE*BYTES(8) ) 

CALL HIGH16( BASE*BYTES(9) ) 

WR1TE( STRING*100 ) ( BYTFS< I ) , 1=4*9 ) 

100 FORMAT! 6A1 ) 

CRC = LIB$CRC( CRC_TABl.E*0*STRINGa{6) ) 

CALL L0W32( CRC*BYTES(10) ) 

CALL HIGH32( CRC*BYTES(11) ) 

C 

C SEND THE BYTES 
C 

CALL Q_OUTPUT( BYTES* 11 ) 

C 

C RECEIVE ACKNOWLEDGMENT 
C 
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NBYTES-RECV = MBYTES + 15 
CALL Q_INPUT( BYTES»NBYTES_RECV ) 

IF( (BYTES(1)»EQ.'55'X).AND. 

X (BYTES(2).EQ,'57'X).ANn. 

X (BYTES(3).EQ.'0D'X).AND. 

X (BYTES(4),EQ.'0A'X) ) THEN 
IF( BYTES(5).NE.'06'X ) THEN 

IF(DEBUS) WRITE( UMIT»200 ) BYTFS( 5 ) 

200 F0RHAT(' Errop» URITE_BI.0CK 1st Receive Ack,'/» 

X ' Expectinsl to find 0Ah» instead found '»z2»'h') 

GO TO 50 
ENDIF 
ELSE 

IF(DEBUG) WRITE! UNIT»300 ) (BYTES(I)f I=l»4) 

300 FORMAT!' Errort WRITE-BLOCK 1st Receive Ack.'/» 

X ' Expecting to find 55h»57hf0Dh»0Ah* ' /» 

X ' Insteed found '»z2»'h'»3!'»'»z2»'h') ) 

GO TO 50 
ENBIF 
C 

C SEND DATA 
C 

CRC = 0 

IF! MBYTES. EQ.O ) GO TO 650 
C 

C BUFFER THE CRC 
C 

WRITE! STRING>625 ) !BLOCK!I)>I=lfNBYTES) 

625 FORMAT !<NBYTES>A1 ) 

CRC = LIBiCRC! CRC.TABLE»0»STRIN6!1 INBYTES) ) 

650 CALL L0W32! CRC » BLOCK ! NBYTESH ) ) 

CALL HI6H32! CRC? BL0CK!NBYTES+2) ) 

CALL Q-OUTPUT! BLOCK. NBYTES+2 ) 

C 

C RECEIVE ACKNOWLEDGEMENT 
C 

NBYTES-RECV = 2 

CALL Q-INPUT! BYTES. NBYTES-RECV ) 

IF! BYTES!1),NE.'06'X ) THEN 

IF!DEBUG) WRITE! UNIT. 700 ) BYTES!1) 

700 FORMAT!' Error, in WRITE-BLOCK 2nd Receive Ack.'/. 

X ' Expecting 06h. instead found '»z2.'h' ) 

60 TO 50 
ENDIF 
C 

C SUCCESSFUL WRITE.BLOCK OPERATION 
C 

RETURN 

END 
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SUBROUTINE Q-INPUT( BYTES»NBYTES-RECV ) 

C 

C tU MACHINE DEPENDENT tt* 

C 

C PURPOSE : 

C 

C QUEUE A SEQUENCE OF BYTES TO THE INPUT CHANNEL 
C 'Q_INPUT' WAITS UNTIL DATA APPEARS ON THE CHANNEL 
C 

C ARGUMENTS t 
C 

C BYTES - THE ARRAY< SEQUENCE ) OF BYTES RECEIVED 
C NBYTES_RECV - THE NUMBER OF BYTES TO RECEIVE S 
C THE NUMBER OF ACTUAL BYTES RECEIVED 

C 
C 

C NOTE : 

C 

C Q_INPUT WAITS FOR THE DBP TO SEND 'NBYTES-RECV' BYTES. 

C IF 'NBYTES..RECV' BYTES HAVE NOT BEEN SENT BY THE TIME 
C THAT THE TIME-OUT VALUE( CURRENTLY 5 SECONDS ) HAS 

C OCCURRED* THE ROUTINE EXITS WITH THE DATA THAT WAS 

C RECEIVED. 

C 

C 

C 

C PROTOCOL : 

C 

C SERVICE PORT 
C 

C LAYER : 

C 

C PHYSICAL 
C 

C DATE : 

C 

C APRIL 12.1983 
C 

c 

INCLUDE 'SPPCOM.TXT' 

INTEGER»4 SYS$QIOWr TERMINAT0R(2) .TIME.OUT 
BYTE PRBYTES< 1024 )» MASK( 6 ) 

C 

TIME_OUT = 1 
C 

C SET UP THE TERMINATOR BYTES 
C 

TERMINATOR(l) = 0 
TERMINAT0R(2) = 0 
C 

C INITIATE THE INPUT OPERATION 
C ( WAIT FOR THE DBP TO SPEAK ) 

C 

5 I0SB<2) = 0 

STATUS = SYS»QIOW( »%VAL( TTY_CHANNEL )i 
X XVAL(IOi_TTYREADALL+IO$M_NOECHO+IOfM_TIMED). 

X lOSBf » »BYTES(1) »XVAL(NBYTES_RECV) fXVAL<5) .TERMINATOR* * ) 

IF( STATUS. NE.SS$.NORMAI. ) THEN 37 

write: UNIT.IO ) STATUS 
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10 FORMAK' ErroPf Q-INPUT failure. '/» 

X ' Return Status is 'rz8 ) 

ENDIF 

NBYTES-RECV = I0SB(2) 

IF( NBYTES-RECV.EQ.O ) THEN 
IF( TIME-OUT. EQ. 10 ) THEN 

IF( DEBUG > URITE( UNITrlS ) 

18 FORMAT!' — Max Tiae Out"s Encountered — ') 

RETURN 

ELSE 

C 

C RETURN TO GET INPUT ONCE MORE 
C 

IF( DEBUG ) WRITE! UNIT>20 ) TIME-OUT 

20 FORMAT!' Tiae Out # '»I2»' — ' ) 

TIME-OUT = TIME-OUT + 1 
GO TO 5 
ENDIF 
ENDIF 

IF! DEBUG ) THEN 
C 

C SET UP ASCII BYTES 

c note: non-printable characters are denoted 
C with a PERIOD! '2E'X ) 

C 

C 

DO 50 I = 1»NBYTES-RECV 
IF! !BYTES!I).LT.'20'X),0R. 

X !BYTES!I).GT.'7E'X)) THEN 
PRBYTES!!) = '2E'X 
ELSE 

PRBYTES!!) = BYTES!I) 

ENDIF 

50 CONTINUE 

WRITE! UNITflOO ) NBYTES-RECV 
100 FORMAT!' == Q-INPUT =='/' * of bytes is '>I5i 
X /»' Bute Streaa :'/ ) 

MULTIPLE16 = ! NBYTES.RECV/16 )»1A 
LEFTOVER = NBYTES-RECV - MULTIPLE16 
IF! MULTIPLE16.GT.0 ) THEN 
DO 200 I = 1»MULTIPLE16»16 

WRITE! UNIT»150 ) !BYTES! II )» 11=1 f 1+15) » !PRBYTES! 12) » 12=1 » 1+15) 
150 F0RMAT!16!lXfZ2.2)f2X»16Al) 

200 CONTINUE 

ENDIF 

IF! LEFTOVER, GT.O ) THEN 

WRITE! UNITf250 ) !BYTES! II ) , I1=MULTIPLE16+1 i 
X MULTIPLE16+LEFT0VER)»!PRBYTES!I2),I2=MULTIPLE16+li 
X MULTIPLEIA+LEFTOVER) 

250 FORMAT! <LEFT0VER>!yC»Z2.2) i <16-LEFT0VER>!3X) »2X» 

X <LEFTOVER>Ar ) 

ENDIF 

WRITE! UNITfAOO ) 

400 FORMAT!/) 

ENDIF 

RETURN 

END 
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SUBROUTINE Q-OUTPUTC BYTESfNBYTES ) 

C 

C ttt HACHINE DEPENDENT ttt 
C 

C PURPOSE : 

C 

C QUEUE A SEQUENCE OF BYTES TO THE OUTPUT TTY CHANNEL 
C 

C ARGUMENTS *. 

C 

C BYTES - THE ARRAY ( SEQUENCE ) OF BYTES TO BE TRANSFERRED 

C NBYTES - # OF BYTES TO BE TRANSFERRED IN ARRAY 'BYTES' 

C 

C PROTOCOL : 

C 

C SERVICE PORT 
C 

C LAYER : 

C 

C DATA LINK 
C 

C DATE : 

C 

C APRIL 12»1983 
C 

C 

INCLUDE 'SPPCOH.TXT' 

INTE6ER*4 SYS$QIOW 
BYTE PRBYTES( 1024 ) 

C 

C INITIATE THE OUTPUT OPERATION 
C ( TALK TO THE DBP ) 

C 

IF( DEBUG ) THEN 
C 

C SET UP ASCII BYTES 
C 

DO 50 I = If NBYTES 

IF( (BYTES(I).LT.'20'X).0R. 

X (BYTES<I).GT.'7E'X)) THEN 
PRBYTES(I) = '2E'X 
ELSE 

PRBYTES(I) = BYTES(I) 

ENDIF 

50 CONTINUE 

HRITE( UNIT»90 ) NBYTES 

90 FORHAT(' == Q-OUTPUT =='/' ♦ of bates is '»I5» 

X /f' Bate Strea* ;'/ ) 

HULTIPLEIA = (NBYTES/16)*16 
LEFTOVER = NBYTES - MULTIPLES 
IF( HULTIPLE16.BT.0 ) THEN 
DO 200 I = l»HULTIPLE16fl6 

URITE( UNIT. 150 ) (BYTES(I1)»I1=I. 1+15). (PRBYTES(I2). 12=1.1+15) 
150 F0RHAT(16(lX.Z2.2).2Xfl6Al) 

200 CONTINUE 

ENDIF 

IF< LEFTOVER. GT.O ) THEN 

HRITE( UNIT. 250 )(BYTES(I1)»I1=HULTIPLE16+1. 

X HULTIPLEl A+LEFTOVER) > ( PRBYTES ( 12 ) . I2=MULT IPLEl 6+1 » 



Q0UTPUT.F0RJ22 


5-JUL-1983 12:21 


Ps^e 2 


X HULTIPLE16FLEFT0VER) 

250 FORHAT ( <LEFTOVER> ( IX f Z2 . 2 ) » <16-LEFT0VER> ( 3X ) f 2X » 

X <LEFT0VER>A1 ) 

ENDIF 

WRITE! UNIT»300 ) 

300 FORMAT!/) 

C 

ENDIF 

STATUS = SYSIQIOW! i XVAL!TTY_CHANNEL) » 

X XUAL!IO$-WRITEVBLK)>IOSBm> 

X BYTES!l)»ZVAL(NBYTES)f »XVAL!0)f > ) 

IF! STATUS. NE. SSI-NORMAL ) THEN 
WRITE! UNIT»400 ) STATUS 
400 FORMAT!' Error» Q-OUTPUT f 3 ilure,'»/» 

X ' Return Status is '?z8 > 

ENDIF 

RETURN 

END 
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SUBROUTINE L0U16< UORDI 61 LOUBYTE ) 


PURPOSE : 

RETURN LOU ORDER BYTE FROM 16 BIT WORD 
ARGUMENTS 1 

U0RD16 - 16 BIT WORD 
LOUBYTE - LOU ORDER 8 BITS 

PROTOCOL : 

SERVICE PORT 

LAYER : 

DATA LINK 

DATE : 

APRIL 12»1983 




BYTE L0WBYTE»H0RD16(2) 
LOUBYTE = U0RD16(1) 
RETURN 
END 
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SUBROUTINE L0U32( W0RD32»L0WBYTE ) 
PURPOSE : 

RETURN LOU ORDER BYTE FROH 32 BIT WORD 
AR6UHENTS t 

U0RD32 - 32 BIT UORD 
LOUBYTE - LOU ORDER 8 BITS 

PROTOCOL : 

SERVICE PORT 

LAYER : 

DATA LINK 

DATE : 

APRIL 12fl983 


BYTE L0UBYTE»U0RD32(4) 
LOUBYTE - U0RD32(1) 
RETURN 
END 
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SUBROUTINE HIGH16( U0RD16>HI6HBYTE ) 
PURPOSE : 

RETURN HIGH ORDER BYTE FROM 16 BIT WORD 
AR6UHENTS : 

U0RD16 - 16 BIT WORD 
HI6HBYTE - HIGH ORDER 8 DITS 

PROTOCOL : 

SERVICE PORT 

LAYER : 

DATA LINK 

DATE : 

APRIL 12fl983 


BYTE HIGHBYTEtM0RD16(2) 
HIGHBYTE = H0RD16<2) 
RETURN 
END 
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SUBROUTINE HIGH32( U0RD32f HIGHBYTE > 

C 

C PURPOSE : 

C 

C RETURN HIGH ORDER BYTE FROM LOWER HALF OF A 
C 32-BIT WORD 
C 

C AR6UHENTS : 

C 

C H0RD32 - 32 BIT WORD 
C HIGHBYTE - HIGH ORDER 8 BITS 
C 

C PROTOCOL : 

C 

C SERVICE PORT 
C 

C LAYER : 

C 

C DATA LINK 
C 

C DATE : 

C 

C APRIL 12»1983 
C 

C 

BYTE HIGHBYTEfW0RD32(4) 

HIGHBYTE * W0RD32(2) 

RETURN 

END 
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SUBROUTINE 6LUE( LOWBYTEi HIGHBYTEiGLUED ) 

C 

C PURPOSE t 
C 

C GLUE TWO BYTES TOGETHER TO FORM A lA-BIT WORD 
C 

C ARGUMENTS ; 

C 

C LOWBYTE - LOW ORDER 8 BITS 

C HIGHBYTE - HIGH ORDER 8 BITS 

C GLUED - 16-BIT WORD 

C 

C PROTOCOL *. 

C 

C SERVICE PORT 

C 

C LAYER : 

C 

C ALL 

C 

C DATE : 

C 

C APRIL 12»1983 
C 

BYTE L0HBYTE»HIGHBYTE»GLUED(2) 

GLUED(l) = LOWBYTE 

GLUED(2> = HIGHBYTE 

RETURN 
END 
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SUBROUTINE TRACE-STARK TRACE-UNIT ) 

C 

C PURPOSE : 

C 

C INITIALIZE A FILE FOR DIAGNOSTIC TRACE OUTPUT 
C 

C ARGUMENTS t 
C 

C TRACE.UNIT - LOGICAL OUTPUT UNIT FOR TRACE INFORMATION 
C 

C PROTOCOL : 

C 

C SERVICE PORT 
C 

C LAYER t 
C 

C ALL : TRACE UTILITY 
C 

C DATE : 

C 

C APRIL 12>1983 
C 

C 

INCLUDE 'SPPCOM.TXT' 

OPEN A DEBUG FILEt IF WE ARE NOT TALKING 
TO THE TERMINAL 

IF< UNIT.NE.6 ) OPEN( UNIT=TRACE_UNIT»FILE='TRACE,DBP' » 
X STATUS='NEW' ) 

UNIT = TRACE-UNIT 
DEBUG = .TRUE. 

C 

RETURN 

END 


Paste 1 
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SUBROUTINE TRACE_STOP 
PURPOSE : 

STOP THE TRACE OUTPUT 
ARGUMENTS 5 
NONE 

PROTOCOL : 

SERVICE PORT 
LAYER : 

ALL : TRACE UTILITY 
DATE : 

APRIL 12»1983 


INCLUDE 'SPPCOM.TXT' 
C 

DEBUG = .FALSE. 

C 

RETURN 

END 
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SUBROUTINE PERFORH-START 

Ut MACHINE DEPENDENT ttt 
PURPOSE : 

START TRACKING THE FOLLOWING PERFORMANCE STATISTICS : 

1* VAX CPU TIME ELAPSED 

2 . VAX CLOCK TIME ELAPSED 

3. VAX BUFFERED I/O 

4. VAX DIRECT I/O 

5* VAX PAGE FAULT COUNT 

ARGUMENTS : 

NONE 

PROTOCOL : 

SERVICE PORT 
LAYER : 

ALL : PERFORMANCE UTILITY 
DATE : 

APRIL 12rl9B3 


INTEGER»4 BUFIO>CPUTIMEf DlOf PAGEF 
INTEGERI4 BUFIO„ADRfCPUTIME.-ADRrDIO ..ADRrPAGEF^ADR 
INTE6ER#4 ZEROl »ZER02»ZER03f ZER04»ZER05 
INTEGER»4 SYS$6ETJPl rSTATUS 
C 

INTEGER»2 LENGTHl f LENGTH2»LENGTH3f LENGTH4 
INTEGER*2 BUFIO^CODEr CPUTIME ..C0DEf DI0.,C0DEfPAGEF^C0DE 
C 

COMMON/STATCOM/ CLOCK-TIMFf BUFIOfCPUTIMFf DIOfPAGEF 
COMMON/JPICOM/ LENGTHl»BUFIO^CODEfBUFIO..AORfZER01> 

X LENGTH2fCPUTIME^C0DEjCPUTIMF.AriRfZFR027 

X LENGTH3f DIO.. CODE fDI0,.ADR»7ER03y 

X LENGTH4»PA6EF-C0DE»PAGEF_ADR>ZER04f ZEROS 

DATA BUFIO-CODE/ 103A / 

DATA CPUTIME-CODE/ 1031 / 

DATA DIO.CODE/ 1035 / 

DATA PAGEF^CODE/ 1034 / 

DATA LENGTHl»LENGTH2fLENGTH3fLEN6TH4/4f4f4f4/ 

C 

C INITIALIZE THE STATISTIC VARIABLES 
C 

CLOCK.TIME = SECNDS( 0^0 ) 

BUFIO-ADR = %LOC( BUFIO ) 

CPUTIME..ADR= XLOC( CPUTIME ) 

DIO-ADR = ZLOC( DIO ) 

PAGEF.ADR = XLOC( PAGEF ) 


C 
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C GET THE PROCESS INFORMATION 
C 

STATUS = SYSIGETJPK » » »LENGTHlf » f ) 

IF( STATUS. NE.l ) WRITE( 6*100 ) STATUS 
100 FORMAT(' Error with SYSiOETJPI* status is '.Z8»'h' ) 
C 

RETURN 

END 


49 



CJ CJ CJ 


PERFST0P»F0RI11 


5-JUL-1983 12J22 


P8^e 1 


SUBROUTINE PERFORM_STOP( NEW_CLOCK»NEM.CPUf NEW -BUFF» 
X NEW-DIRECT>NEU-PA6E ) 

C 

C ttt MACHINE DEPENDENT *t* 

C 

C PURPOSE : 

C 

C STOP THE TRACKING OF THE PERORMANCE STATISTICS 
C AND RETURN THE VALUES 


C 

C 

C ARGUMENTS t 
C 

C CLOCK 
C CPU 

C BUFFERED - 

C DIRECT - 

C PAGE 
C 
C 

C PROTOCOL : 


VAX CLOCK TIME ELAPSED 
VAX CPU TIME ELAPSED 
VAX BUFFERED I/O 
VAX DIRECT I/O 
VAX PAGE FAULT COUNT 


C 

C SERVICE PORT 
C 


C LAYER { 

C 

C ALL J PERFORMANCE UTILITY 
C 

C DATE J 
C 

C APRIL 12»1?83 
C 

C 

INTEGER»4 BUFIO » CPUTIME » DIO » PAGEF 
INTEGER»4 BUFFERED»CPU..INT»DIRECT»PAGE 
INTEGER*^ NEH_BUFF»NEU_DIRECT»NEW_PAGE 
REAL NEM-CLOCK»NEU„CPU 

INTEGER»4 BUFIO_ADR>CPUTIME_ADR»DIO_AnR»PAGEF..ADR 
INTEGER*4 ZEROl t ZER02 » ZER03 . ZER04 » ZEROS 
INTEGER*4 SYS$GETJPI .STATUS 
C 

INTEGER»2 LENGTHl .LENGTH?. LENGTHS. LFNGTH4. LENGTHS 
INTEGER*? BUFIO_CODE.CPUTIME_CODE.OIO„CODE. PAGEF. CODE 
C 

COMMON/STATCOM/ CLOCK-TIME. BUFIO. CPUTIME. DIO. PAGEF 
COMMON/ JPICOM/ LENGTHl.BUFIO-CODE. BUFIO. ADR. ZEROl. 

X LENGTH?. CPUTINE_C0DE.CPUTIME_AnR.ZER02» 

X LENGTHS. DI0_C0DE.DI0_.ADR.ZER03. 

X LENGTH4 . PAGEF-CODE . PAGEF- ADR . ZER04 . ZEROS 

DATA BUFIO-CODE/ 1036 / 

DATA CPUTIME-CODE/ 1031 / 

DATA DIO-CODE/ 103S / 

DATA PAGEF-CODE/ 1034 / 

DATA LENGTHl . LENGTH? . LENGTHS . LENGTH4/4 .4*4.4/ 


DETERMINE THE STATISTICS 


BUFIO-ADR = XLOC( BUFFERED ) 
CPUTIME_ADR= XLOC( CPU-INT ) 
50 
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DIO.ADR = ZLOC< DIRECT ) 

PAGEF.ADR = %LOC( PAGE ) 

C 

STATUS = SYSIGETJPK . » »LENGTH1 » » » ) 

IF( STATUS. NE.l ) MRITE( 6»100 ) STATUS 
100 FORMAT(' Error. SYSfGETJPI. status is '.zS.'h' ) 

RETURN THE APPROPRIATE STATISTICS 

NEH-CLOCK = SECNDS< CLOCK„TIHE ) 

NEM-CPU = ( CPU-INT - CPUTIHE )/100.0 
NEW-DIRECT* DIRECT - DIO 
NEW-PAGE = PAGE - PAGEF 
NEW-BUFF = BUFFERED - BUFIO 
C 

RETURN 

END 
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SUBROUTINE TRACK( BLOCKf DATA. TYPE ) 

PURPOSE ; 

DISPLAY THE FORMAT OF THE REQUESTED DATA STRUCTURE 
TWO DATA STRUCTURES ARE DISPLAYED - 

1. ) PCB VECTOR 

2. ) PCB 


ARGUMENTS : 

BLOCK - THE ARRAY CONTAINING THE DATA 

DATA-TYPE - THE DATA STRUCTURE TYPE 

= 0 IF PCB VECTOR 
= 1 IF PCB 

PROTOCOL : 

SERVICE PORT 
LAYER : 

ALL 
DATE : 

APRIL 12.1983 


INCLUDE 'SPPCOM.TXT' 

INTEGER*2 REQUEST.LENGTH 
INTEGER*2 BUFFER1_LENGTH.BIJFFER2_LENGTH 
INTEGER*4 DBP_STATUS(4) fH0ST..STATUS(6) f DATA-TYPE 
CHARACTER»40 DBP_MESSAGE(4) »H0ST_MESSAGE(6) f DBP»H0ST 
DATA DBP-STATUS 
X /4.5»6.7/ 

DATA HOST-STATUS 
X /0.1>2»3.5»17/ 

DATA DBP-MESSAGE 
X /'WAIT ON ENABLE'. 

X 'READ RESPONSE'. 

X 'READ RESPONSE WITH EOM'. 

X 'WRITE REQUEST' / 

DATA HOST-MESSAGE 
X /'SUSPEND SESSION'. 

X 'READ/WRITE OK'. 

X 'ERROR ENCOUNTERED'. 

X 'WRITE OK WITH EOM'. 

X 'OK FIN'. 

X 'ENABLE SERVICE PORT' / 

C 

C DETERMINE THE NECESSARY DECIMAL VALUES 
C 

CALL GLUE< BL0CK<29) .BL0CK(30) .REQUEST-LENGTH ) 
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CALL GLUE( BL0CK(36) f BL0CK(37) t BUFFER1.LEN6TH ) 
CALL GLIJE( BL0CK(42)fBL0CK(43)»BUFFER2.LENQTH ) 
C 

C OUTPUT THE PCB VECTOR OR PCB 
C 


IF( DATA-TYPE.EQ.l ) THEN 


C 


C PROCESS A PCB DATA STRUCTURE 
C 

DO 50 I = 1>4 

50 1F( BL0CK(15).EQ,DBP.STATUS(D) GO TO 75 

DBP = 'UNKNOWN DBP STATUS' 

60 TO 80 

75 DBP = DBP_MESSAGE(I) 

80 DO 100 I - 1»6 

100 IF( BL0CK(16).EQ.H0ST-STATUS(I)) GO TO 125 

HOST = 'UNKNOWN HOST STATUS' 

GO TO 130 

125 HOST » HOST.HESSAGEd) 

130 WRITE< UNIT>200 ) (BLOCK( II ) » Il»l > 14) >BLOCK( 15) * DBPi 


200 


X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 


BLOCK(lA)»HOSTf (BL0CK(I2)»I2^17»28)»REQIJEST-LENGTH» 
BL0CK(31)><BL0CK(I3)>13=35>32»-1)> 

BUFFERl-LENGTHf (BL0CK(I4) » 14=41 »38»-l ) » 


BUFFER2-LEN6TH 

FORHAT(' + + '/. 

' I PCB l'/» 

' + + '//» 


' RESERVED'»T25f 14(Z2.2»lX)f/» 

' iDBP STATUS'»T25»Z2.2»lX»A»/» 
' HOST STATUS'»T25»Z2.2»lX*A»/» 
' RESERVED'iT25.12(Z2.2»lX)»/» 

' REQUEST LENGTH'»T25»I4»/» 

' NUMBER OF SEGMENTS' fT25»Il»/» 
' BUFFER 1 PTR'.T25»4(Z2,2)/» 

' BUFFER 1 LENGTH'iT25f I4»/» 


X ' BUFFER 2 PTR' »T25»4(Z2.2)/» 


X ' BUFFER 2 LENGTH' »T25» I4i//) 

ELSE 


C 

C PROCESS A PCB VECTOR DATA STRUCTURE 
C 


300 


WRITE( UNITf300 ) (BLOCK( II ) » Il=2f 1 »-l ) i 
X (BL0CK(I2)fI2=6»3»-l).(BL0CK<I3)Fl3=10f 7f-l) 


FORMAT<' + — +'/f 

X ' I PCB VECTOR I'/f 

X ' + +'//» 


X ' INDEX '»T30.2Z2.2f/i 

X ' CONTROL PCB ADDRESS' »T30.4Z2,2»/f 

X ' APPLICATION PCB ADDRESS' fT30.4Z2.2»// ) 

ENDIF 
RETURN 
END 
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I ! 

$ ! THIS IS THE COHHAND FILE USED TO RUN PR06RAH 'SPP' 
i ! THE VMS TTY PORT 'TTBOJ' IS USED FOR COMMUNICATIONS 

$ ! 

t DBPTERM S= _TTBOJ 

♦ I ALLOCATE THE PORT FOR ACCESS 
% ALLOCATE 'DBPTERM' 

$ SET PR0TECTI0N=(H:RU)/DEVICE 'DBPTERM' 

$ ! 

% ! SET TERMINAL CHARACTERISTICS FOR TTBOJ 

♦ ! SEE FIGURE 2 OF THIS REPORT 

i \ 

% SET TERMINAL 'DBPTERN'/N0MRAP/HIDTH=80/SPEED=9600/PASSALL/EIGHT_BIT/PERM 
$ ASSIGN/USER 'DBPTERM' REMOTE 
i ASSIGN/USER TTJ SYSilNPUT 

♦ RUN CINTEL.SPP3SPP 
$ ! DEALLOCATE TTBOt 

♦ DEALLOCATE 'DBPTERM' 
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APPENDIX B 


A sample transmission trace 



TRACE. DBPf55 


24-MAY-1983 14J26 


Fade 1 


tt Initialize iDBP Connunications tt 
== Q.OUTPUT == 

# of buies is 1 
Buie StreaiR • 

03 


== Q_INPUT == 

♦ of bates is 16 
Bate Stream « 

AO OA 2A 43 6F 6E 74 72 6F 6C 20 43 2A OD OA 2E ..^Control C*.,. 


** Create Control Session t* 

U Initiate a READ-BLOCK ** 

== Q-OUTPUT == 

# of bates is 11 
Bate Stream • 

55 52 OD OA 00 00 00 OC EE 85 E6 UR 


== Q-INPUT == 

* of bates is 25 
Bate Stream » 

55 52 OD OA OA 00 00 00 OC EE 85 E6 00 00 00 00 UR... 
4D 98 00 00 00 00 2E 01 2E M,... 


+ 

1 PCB 

± „ _ 

VECTOR 

1 

_ _ 1 


T* _ 


T 


INDEX 



0000 

CONTROL PCB 

ADDRESS 


984DOOOO 


APPLICATION PCB ADDRESS 00000000 


tt Initiate a READ. BLOCK lit 
== Q-OUTPUT == 

♦ of bates is 11 
Bate Stream *. 

55 52 OD 2B 00 00 00 4D 98 32 El UR.+...M.2. 


== Q-INPUT == 
t of bates is 58 
Bate Stream J 


55 

52 

OD 

OA 

2B 

00 

00 

00 

4D 

98 

32 

El 

00 

00 

00 

00 

L)R» •ah*2** »* a 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

04 

00 

00 

02 

00 

00 


00 

00 

00 

00 

00 

04 

00 

00 

00 

00 

01 

BD 

IF 

03 

00 

80 


00 

FF 

FF 

FF 

00 

00 

00 

B3 

51 

2E 









+ + 

I PCB I 
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TRACE. DBPf 55 


24-MAY-1983 14J26 


PaSe 2 


I + 

RESERVED 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

iDBP STATUS 04 WAIT ON ENABLE 

HOST STATUS 00 SUSPEND SESSION 

RESERVED 00 02 00 00 00 00 00 00 00 04 00 00 

REQUEST LENGTH 0 

NUMBER OF SEGMENTS 1 

BUFFER 1 PTR 00031FBD 

BUFFER 1 LENGTH 128 

BUFFER 2 PTR OOFFFFFF 

BUFFER 2 LENGTH 0 


t* Initiate 3 WRITE.BLOCK U 
== Q-OUTPUT == 

* of bytes is 11 
Byte Stresm ! 

55 57 OD 2B 00 00 00 4D 98 32 El UW.+...M.2. 


== Q.INPUT == 

# of bytes is 5 

Byte Stream I 

55 57 OD OA 06 UW... 

== Q.OUTPUT == 

* of bytes is 45 

Byte Stream ! 

00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 11 

00 02 00 00 00 00 00 00 00 04 00 00 00 00 01 BD 

IF 03 00 80 00 FF FF FF 00 00 00 9E 51 Q 


== Q.INPUT == 

* of bytes is 2 
Byte Stream t 

06 2E 


+ + 

1 PCB 1 

+ + 

RESERVED 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

iDBP STATUS 04 WAIT ON ENABLE 

HOST STATUS 11 ENABLE SERVICE PORT 

RESERVED 00 02 00 00 00 00 00 00 00 04 00 00 

REQUEST LENGTH 0 

NUMBER OF SEGMENTS 1 

BUFFER 1 PTR 00031FBD 

BUFFER 1 LENGTH 128 

BUFFER 2 PTR OOFFFFFF 

BUFFER 2 LENGTH 0 
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TRACE, DBPf55 


24-MAY-1983 14J26 


P3^e 3 


== Q-OUTPUT == 

# of bytes is 2 
Byte Stresn * 

47 OD 6. 


== Q.INPUT == 

♦ of bytes is 29 
Byte Stresn * 

47 OD OA OD OA 2A 42 52 45 41 4B 2A 20 61 74 20 G..,.«BREAK« 3t 
33 30 41 36 3A 30 33 42 41 20 OD OA 2E 30A6$03BA 


tt Creste Applicstion Session tt 
tut Send Reouest 
U Initiste 3 READ.BLOCK U 
== Q_0UTPUT == 

4 of bytes is 11 
Byte Stresn t 

55 52 OD OA 00 00 00 OC EE 85 E6 UR 


== Q.INPUT == 

* of bytes is 25 
Byte Stresn t 

55 52 OD OA OA 00 00 00 OC EE 85 E6 00 00 00 00 UR 

4D 98 00 00 00 00 2E 01 2E M 


+ + 

I PCB VECTOR I 
+ + 

INDEX 0000 

CONTROL PCB ADDRESS 984D0000 

APPLICATION PCB ADDRESS 00000000 


U Initiate 3 READ.BLOCK ** 

== Q.OUTPUT == 

* of bytes is 11 
Byte Stream 5 

55 52 OD 2B 00 00 00 4D 98 32 El UR.+...M.2, 


== Q.INPUT == 

# of bytes is 58 
Byte Stream 1 

55 52 OD OA 2B 00 00 00 4D 98 32 El 00 00 00 00 UR,.+.,,M,2 

00 00 00 00 00 00 00 00 00 00 07 00 00 02 00 00 


00 00 00 00 00 04 00 00 00 00 01 B9 IF 00 30 84 0, 

00 FF FF 00 FO 00 00 97 46 2E F. 


+ + 
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TRACE. DBP»55 


24-MAY-1983 14:26 


Paae 4 


1 PCB I 

+— + 


RESERVED 
iDBP STATUS 
HOST STATUS 
RESERVED 
REQUEST LENGTH 
NUHBER OF SEGMENTS 
BUFFER 1 PTR 
BUFFER 1 LENGTH 
BUFFER 2 PTR 
BUFFER 2 LENGTH 


00 00 00 00 00 00 00 00 00 00 00 00 00 00 
07 WRITE REQUEST 
00 SUSPEND SESSION 

00 02 00 00 00 00 00 00 00 04 00 00 
0 

1 

30001FB9 

132 

FOOOFFFF 

0 


*t Initiate a WRITE-BLOCK ** 

== Q-OUTPUT == 

# of bi^tes is 11 
Bate Streai# t 

55 57 OD 09 00 B9 IF 00 30 14 17 UW 0 


== Q-INPUT == 

# of bates is 5 
Bate Strean t 

55 57 OD OA 06 UH... 


== Q-OUTPUT == 

♦ of bates is 11 

Bate Stream J 

01 00 00 00 E4 01 FE FF 00 5C 7A \z 

== Q-INPUT == 

♦ of bates is 2 

Bate Stream : 

06 2E 


Initiate a WRITE-BLOCK %% 

== Q-OUTPUT == 

* of bates is 11 

Bate Stream ; 

55 57 OD 2B 00 00 00 4D 98 32 El UW.+...M.2. 

== Q-INPUT == 

♦ of bates is 5 
Bate Stream : 

55 57 OD OA 06 UW... 


== Q-OUTPUT == 
♦ of bates is 


45 
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TRACE. DBPf 55 


24-MAY-1983 IAX26 


P33e 5 


Byte Stres* • 

00 00 00 00 00 00 00 00 00 00 00 00 00 00 07 03 

00 02 00 00 00 00 00 00 00 04 00 00 09 00 Oi B9 

IF 00 30 84 00 FF FF 00 FO 00 00 58 80 ..0 X. 


== Q-INPUT == 
# of bytes is 
Byte Stresn « 

06 2E 


+ + 

I PCB I 

+ + 

RESERVED 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

iDBP STATUS 07 WRITE REQUEST 

HOST STATUS 03 WRITE OK WITH EOH 

RESERVED 00 02 00 00 00 00 00 00 00 04 00 00 

REQUEST LENGTH 9 

NUHBER OF SEGMENTS 1 

BUFFER 1 PTR 30001FB9 

BUFFER 1 LENGTH 132 

BUFFER 2 PTR FOOOFFFF 

BUFFER 2 LENGTH 0 

== Q_OUTPUT == 

# of bytes is 2 

Byte Stresm * 

47 OD G. 

== Q-INPUT == 

# of bytes is 29 

Byte Stresn ! 


47 OD OA OD OA 2A 42 52 45 41 4B 2A 20 61 74 20 G....*BREAK» at 
33 30 41 36 3A 30 33 42 41 20 OD OA 2E 30A6:03BA ... 


** Receive Response ** 
tt Initiate a READ-BLOCK ** 

== Q-OUTPUT == 

# of bytes is 11 
Byte Stream X 

55 52 OD OA 00 00 00 OC EE 85 E6 UR 


== Q-INPUT == 

# of bytes is 25 
Byte Stream t 

55 52 OD OA OA 00 00 00 OC EE 85 E6 00 00 00 00 UR 
4D 98 00 00 C5 68 7C BF 2E H 
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TRACE. DBPJ55 24-MAY-1983 14J26 PaSe 6 

+ + 

I PCB VECTOR I 

+- + 

INDEX 0000 

CONTROL PCB ADDRESS 984D0000 


APPLICATION PCB ADDRESS 68C50000 


tt Initiate a READ.BLOCK ** 

== Q-OUTPUT »= 

# of butes is 11 
Bute Stream 1 

55 52 OD 2B 00 00 00 4D 98 32 El UR.+...M.2. 


== Q.INPUT == 
t of butes is 58 
Bute Stream * 

55 52 OD OA 2B 00 00 00 4D 98 32 El 00 00 00 00 UR..+...M.2 
00 00 00 00 00 00 00 00 00 00 06 00 00 02 00 00 


00 00 00 00 00 04 00 00 09 00 01 B9 IF 00 30 OB 0. 

00 FF FF 00 FO 00 00 D6 61 2E a. 


+- + 

I PCB I 

+ + 

RESERVED 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

iDBP STATUS 06 READ RESPONSE WITH EON 

HOST STATUS 00 SUSPEND SESSION 

RESERVED 00 02 00 00 00 00 00 00 00 04 00 00 

REQUEST LENGTH 9 

NUMBER OF SEGMENTS 1 

BUFFER 1 PTR 30001FB9 

BUFFER 1 LENGTH 11 

BUFFER 2 PTR FOOOFFFF 

BUFFER 2 LENGTH 0 


** Initiate a READ-BLOCK ** 

== Q-OUTPUT == 
t of butes is 11 
Bute Stream « 

55 52 OD OB 00 B9 IF 00 30 15 F5 UR 0 


== Q-INPUT == 

# of butes is 26 
Bute Stream » 

55 52 OD OA OB 00 B9 IF 00 30 15 F5 01 00 00 00 UR 0 

FC 03 E4 01 00 FF 00 08 DA 2E 


t* Initiate a URITE.BLOCK tt 
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TRACE. DBPJ55 24-MAY-1983 14:24 PaSe 7 

== Q.OUTPUT == 

# of bytes is 11 

Byte Streen • 

55 57 OD 2B 00 00 00 4D 98 32 El UU.-i...H.2. 

== Q_INPUT == 

♦ of bytes is 5 
Byte Streait : 

55 57 OD OA 04 UW... 


== Q.OUTPUT == 

* of bytes is 45 
Byte Stream • 

00 00 00 00 00 00 00 00 00 00 00 00 00 00 04 01 ... 

00 02 00 00 00 00 00 00 00 04 00 00 09 00 01 B9 ... 

IF 00 30 OB 00 FF FF 00 FO 00 00 D5 El ..0 


== Q.INPUT == 

# of bytes is 2 
Byte Stream * 

04 2E 


+ + 

I PCB I 

j. 

RESERVED 00 00 00 00 00 00 00 00 00 00 00 00 00 00 

iDBP STATUS 04 READ RESPONSE UITH EOH 

HOST STATUS 01 READ/MRITE OK 

RESERVED 00 02 00 00 00 00 00 00 00 04 00 00 

REQUEST LENGTH 9 

NUMBER OF SEGMENTS 1 

BUFFER 1 PTR 30001FB9 

BUFFER 1 LENGTH 11 

BUFFER 2 PTR FOOOFFFF 

BUFFER 2 LENGTH 0 


== Q.OUTPUT == 

I ♦ of bytes is 2 

! Byte Stream . 

I 47 OD 6. 


1 == Q.INPUT == 
f * of bytes is 29 

I Byte Stream t 

i 47 OD OA OD OA 2A 42 52 45 41 4B 2A 20 41 74 20 G....»BREAK« at 
j 33 30 41 34 3A 30 33 42 41 20 OD OA 2E 30A4t03BA ... 


. ' *! 



TRACE. DBPJ55 


24-MAY-1983 14:26 


PaSe 8 


** All data has been received 
** Create Application Response tt 

PC 03 E4 01 00 FF 00 
== Q.OUTPUT == 

♦ of bates is 2 
Bate Stream : 

47 on G. 


== Q.INPUT == 

♦ of bates is 29 
Bate Stream : 

47 on OA on OA 2A 42 52 45 41 4B 2A 20 61 74 20 G....CBREAK* at 
33 30 41 36 3A 30 33 42 41 20 OD OA 2E 30A6*.03BA 


• » * 
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Figure 3. - The physical DBP environment 
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BOTTOM LAYER-- 
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TOOLS 
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Figure 4, 


SPP 



within HILDA and SPP 



If the host sends the following request module to iDBP: 


1 1 DID I Command-1- 


—Coinmand-2- 


— I-Osramand-S- 1 


Then the host and iPBP will transmit the followinc 
(values are for example only) 


[\ents: 


HOST 


I ID I ID I 4-byte 
H 1 1 header 


Coirmand-l-a 


-+ 

I 512 - 
-+ bytes 


I Ootnmand-l-b Command-2-a 1 512 - 

-j ^ bytes 


Number of Segments = 1, 
Buffer 1 Length = 4 


Number of Segments = 1, 
Buffer 1 Length = 512 


Number of Segments = 1, 
Buffer 1 Length =512 


Number of Segments = 2 , 
Buffer 1 Length = 4, 
Buffer 2 Length = 512 


4-byte | ID | ID I 
heaider H 


512 

bytes 


Response-A 


Figure 5. - General Form for Host-DBP Interaction. 
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i SHO TERM TTBOt 


TerainalJ _TTB0* 

Device_T«pe 

: VT52 

Owner: No Owner 

Input: 9600 

LFfili: 0 

Width: 80 

Parity: None 

Output: 9600 

CRfili: 0 

Paae: 24 


Terminal Characteristics: 



Passall 

Echo 

Type-ahead 

No Escape 

No Hostsunc 

TTsyne 

Lowercase 

No Tab 

No Wrap 

Scope 

No Remote 

No Holdscreen 

EiShtbit 

Broadcast 

No Readsync 

No Form 

Fulldup 

No Modem 

No Local-echo 

No Autobaud 

No HanSUP 

No Brdestoibx 

No DMA 

No Altypeahd 

Set_speed 

No ANSI-CRT 

No ReSis 

No Block-mode 

No Advanced-video 

No Edit-mode 

No DEC-CRT 



Figure 6. - VAX Asynchronous Connunl cations Parameters 












1. Report No. 2. Government Accession No. 

NASA CR- 172144 


4. Title and Subtitle 

SPP: A DATA BASE PROCESSOR DATA COMMUNICATIONS 
PROTOCOL 


3. Recipient's Catalog No. 


5. Report Date 

Mav 1983 


6. Performing Organization Code 


7. Author(s) 

Paul A. Fishwick 


9. Performing Organization Name and Address 

Kentron Technical Center 


Hampton, VA 23666 


12. Sponsoring Agency Name and Address 

National Aeronautics and Space Administration 
Washington, DC 20546 


15. Supplementary Notes 

Langley Technical Monitor: Timothy R. Rau 

Final Report 


16. Abstract 


8. Performing Organization Report No. 


10. Work Unit No. 


11. Contract or Grant No, 

AS U 6000 


13. Type of Report and Period Covered 

Contractor Report 


14. Sponsoring Agency Code 


The design and implementation of a data communications protocol for the 
Intel Data Base Processor (DBP) is defined. The protocol is termed SPP 
(Service Port Protocol) since it enables data transfer between the host 
computer and the DBP service port. The protocol implementation is extensible 
in that it is explicitly layered and the protocol functionality is 

hierarchically organized. Extensive trace and performance capabilities have 
been supplied with the protocol software to permit optional efficient 
monitoring of the data transfer between the host and the Intel data base 
processor. Machine independence was considered to be an important attribute 
during the design and implementation of SPP. The protocol source is fully 
commented and is included in Appendix A of this report. 


17. Key Words (Suggested by Author(s)) 

Data base management 
Data base machine 
protocol 
DBP 


18. Distribution Statement 

Unclassified - Unlimited 


Subject Category 60 


19. Security Oassif. (of this report) 

Unclassified 


20. Security Classif. (of this page) 

21. No. of Pages 

Unclassified 

71 


22. Wee 

A04 


N-305 


For sale by the National Technical Information Service. Springfield. Virginia 22161 


















End of Document 



